0 POKE808,254:POKE53280,0:POKE53281,0
1 PRINTCHR$(8),CHR$(142)"[147]WE HAVE JOINT WE HAVE FUN!"
2 PRINT"EIN KURZ-ADVENTURE VON MAIK HOLSTEIN"
3 PRINT"WRITTEN 1990"
4 PRINT""
5 PRINT"VIEL SPASS, JUNKY![145]"
6 GETA$:IFA$=""THEN6
7 PRINT"[147]FUER DIE GANZ DUMMEN:"
8 PRINT"PASS AUF, DAS IST GANZ EASY."
9 PRINT"IN DIESEM GAME STELLE ICH DIR IMMER FRA-"
10 PRINT"[145]GEN, UND DU MUSST SIE MIT DEN BUCH-"
11 PRINT"STABEN 'J' (JA) ODER 'N' (NEIN) BEANT-"
12 PRINT"WORTEN UND DANN 'RETURN' DRUECKEN."
13 INPUT"[145]KLARO";MH$
14 IFMH$="J"THEN19
15 IFMH$="N"THEN500
16 GOTO13
19 PRINT"[147]"
20 PRINT"DER DEALER IST DA!"
30 INPUT"[145]WILLSTE 'NEN JOINT";E$
40 IFE$="J"THEN60
50 IFE$="N"THENPRINT:PRINT"SCHADE...":PRINT"(TASTE)":GOTO200
55 GOTO30
60 PRINT""
65 INPUT"[145]HASTE KOHLE";G$
80 IFG$="N"THENPRINT"DU GEHST ERST KOHLE HOLEN.":GOTO90
81 IFG$="J"THEN90
82 GOTO65
90 PRINT:PRINT"DU WALKST UEBER DIE STRASSE."
100 PRINT:PRINT"DU KAUFST 'NEN JOINT."
110 X=X+1
120 PRINT""
125 INPUT"[145]WILLSTE NOCH EINEN";N$
130 IFN$="J"THEN150
140 IFN$="N"THEN170
145 GOTO125
150 PRINT:PRINT"DU KAUFST JOINT NUMMER";X+1;"[157]."
160 GOTO110
170 PRINT:PRINT"DU MUSST KOTZEN.":PRINT
180 IFX=1THENPRINT"EIN JOINT BEKOMMT DIR NICHT!":PRINT"(TASTE)":GOTO200
190 PRINT"[157]";X;"JOINTS BEKOMMEN DIR NICHT!":PRINT"(TASTE)"
200 GETA$:IFA$=""THEN200
201 PRINT"[147]HM, NUN, TJA, DAS WAR'S EIGENTLICH..."
202 PRINT"UND DIE MORAL VON DER GESCHICHT?"
203 PRINT"EINEN JOINT RAUCHT MAN NICHT!"
204 PRINT"(TASTE)"
205 GETA$:IFA$=""THEN205
206 GOTO600
500 PRINT"MENSCH, STELL' DICH NICHT BLOEDER AN,"
501 PRINT"ALS DU SCHON BIST! ES GEHT LOS."
502 PRINT"(TASTE)"
503 GETA$:IFA$=""THEN503
504 GOTO19
600 PRINT"[152][213][195][179] [213][201]  [178] [176][201] [213][195][179]"
601 PRINT"[194]   [194][202][201] [194] [194][202][201][194]  "
602 PRINT"[171][195][179] [194] [202][201][194] [194][215][194][171][195][179]"
603 PRINT"[194]   [194]  [202][179] [194][213][203][194]"
604 PRINT"[202][195][179] [177]   [177] [173][203] [202][195][179]":SYS64738
1000 REM WRITTEN BY MAIK HOLSTEIN 1990